home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt32s3.arc / PIBUPLOB.PAS < prev    next >
Pascal/Delphi Source File  |  1985-11-13  |  1KB  |  41 lines
  1. BEGIN (* PibUpLoad *)
  2.                                    (* Ctrl Z ends Ascii file by default *)
  3.    Ascii_Use_CtrlZ := TRUE;
  4.                                    (* Don't display received text *)
  5.    Ascii_Show_Text := FALSE;
  6.                                    (* Get protocol for upload *)
  7.  
  8.    IF Transfer_Protocol = None THEN
  9.       Transfer_Protocol := Get_Upload_Protocol;
  10.  
  11.                                    (* Display transfer status   *)
  12.    Display_Status := TRUE;
  13.                                    (* Perform transfer *)
  14.    CASE Transfer_Protocol OF
  15.  
  16.       Ascii        : Send_Ascii_File;
  17.  
  18.       Modem7_Chk,
  19.       Ymodem_Batch,
  20.       Ymodem,
  21.       Xmodem_CRC,
  22.       Telink,
  23.       Modem7_CRC,
  24.       Xmodem_Chk   : Do_Xmodem_Upload( Transfer_Protocol );
  25.  
  26.       Kermit       : Send_Kermit_File;
  27.  
  28.       ELSE ;
  29.  
  30.    END  (* CASE *);
  31.                                    (* Indicate end of transfer *)
  32.  
  33.    IF ( NOT Silent_Mode ) AND ( NOT ( Transfer_Protocol = None ) ) THEN
  34.       FOR I := 1 TO Transfer_Bells DO
  35.          BEGIN
  36.             WRITE( CHR( BELL ) );
  37.             DELAY( 250 );
  38.          END;
  39.  
  40. END   (* PibUpLoad *);
  41.